home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtsut53.zip / SU1SRC.ZIP / DEMO04.DFM / DEMO04.txt next >
Text File  |  1997-01-27  |  18KB  |  746 lines
  1. object FBDemo04: TFBDemo04
  2.   Left = 320
  3.   Top = 175
  4.   Width = 576
  5.   Height = 464
  6.   ActiveControl = Panel1
  7.   Caption = 'FBDemo04'
  8.   Font.Color = clWindowText
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   OnCreate = FormCreate
  14.   PixelsPerInch = 120
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 1000
  20.     Height = 50
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object DBNavigator: TDBNavigator
  24.       Left = 10
  25.       Top = 10
  26.       Width = 280
  27.       Height = 31
  28.       DataSource = DataSource1
  29.       Ctl3D = False
  30.       ParentCtl3D = False
  31.       TabOrder = 0
  32.     end
  33.   end
  34.   object CBReport1: TCBReport
  35.     Left = 8
  36.     Top = 56
  37.     Width = 992
  38.     Height = 1403
  39.     Font.Color = clWindowText
  40.     Font.Height = 16
  41.     Font.Name = 'Arial'
  42.     Font.Style = []
  43.     Color = 15794175
  44.     ParentFont = False
  45.     About = 'Version 5.32'
  46.     AboutRegistered = 'LUKE GREWS'
  47.     Bands.Detail = Detail
  48.     Bands.Title = Title
  49.     Bands.PageFooter = PageFooter
  50.     Viewer.BkColor = 11234567
  51.     Viewer.Heading = 'BandIt Viewer'
  52.     Viewer.ShowCancelDialog = True
  53.     Viewer.MinimizeRunForm = False
  54.     Viewer.ZoomPercentage = 100.000000000000000000
  55.     Page.FrameStyle = frThin
  56.     Page.MarginLeft = 0.400000000000000000
  57.     Page.MarginTop = 0.400000000000000000
  58.     Page.MarginRight = 0.400000000000000000
  59.     Page.PaperSize = A4
  60.     OutputTo = poViewer
  61.     Orientation = Default
  62.     Units = poInches
  63.     Copies = 1
  64.     LineSpacing = 2.500000000000000000
  65.     RewindBeforePrint = True
  66.     object Panel3: TPanel
  67.       Left = 49
  68.       Top = 1299
  69.       Width = 894
  70.       Height = 55
  71.       Align = alBottom
  72.       Caption = 'Panel3'
  73.       Color = clBlue
  74.       TabOrder = 0
  75.       object Label6: TLabel
  76.         Left = 16
  77.         Top = 8
  78.         Width = 113
  79.         Height = 19
  80.         AutoSize = False
  81.         Caption = 'Ship Date'
  82.         Font.Color = clWhite
  83.         Font.Height = -15
  84.         Font.Name = 'Arial'
  85.         Font.Style = [fsBold]
  86.         ParentFont = False
  87.       end
  88.       object Label7: TLabel
  89.         Left = 16
  90.         Top = 32
  91.         Width = 113
  92.         Height = 19
  93.         AutoSize = False
  94.         Caption = 'Order Number'
  95.         Font.Color = clWhite
  96.         Font.Height = -15
  97.         Font.Name = 'Arial'
  98.         Font.Style = [fsBold]
  99.         ParentFont = False
  100.       end
  101.       object Label8: TLabel
  102.         Left = 152
  103.         Top = 32
  104.         Width = 169
  105.         Height = 19
  106.         AutoSize = False
  107.         Caption = 'Customer Number'
  108.         Font.Color = clWhite
  109.         Font.Height = -15
  110.         Font.Name = 'Arial'
  111.         Font.Style = [fsBold]
  112.         ParentFont = False
  113.       end
  114.       object Label9: TLabel
  115.         Left = 344
  116.         Top = 32
  117.         Width = 113
  118.         Height = 19
  119.         AutoSize = False
  120.         Caption = 'Purchase Order'
  121.         Font.Color = clWhite
  122.         Font.Height = -15
  123.         Font.Name = 'Arial'
  124.         Font.Style = [fsBold]
  125.         ParentFont = False
  126.       end
  127.       object Label11: TLabel
  128.         Left = 496
  129.         Top = 32
  130.         Width = 57
  131.         Height = 19
  132.         AutoSize = False
  133.         Caption = 'Terms'
  134.         Font.Color = clWhite
  135.         Font.Height = -15
  136.         Font.Name = 'Arial'
  137.         Font.Style = [fsBold]
  138.         ParentFont = False
  139.       end
  140.       object Label12: TLabel
  141.         Left = 584
  142.         Top = 32
  143.         Width = 113
  144.         Height = 19
  145.         AutoSize = False
  146.         Caption = 'Pay Method'
  147.         Font.Color = clWhite
  148.         Font.Height = -15
  149.         Font.Name = 'Arial'
  150.         Font.Style = [fsBold]
  151.         ParentFont = False
  152.       end
  153.       object Label13: TLabel
  154.         Left = 686
  155.         Top = 32
  156.         Width = 91
  157.         Height = 19
  158.         Alignment = taRightJustify
  159.         AutoSize = False
  160.         Caption = 'Items Total'
  161.         Font.Color = clWhite
  162.         Font.Height = -15
  163.         Font.Name = 'Arial'
  164.         Font.Style = [fsBold]
  165.         ParentFont = False
  166.       end
  167.       object Label10: TLabel
  168.         Left = 782
  169.         Top = 32
  170.         Width = 99
  171.         Height = 19
  172.         Alignment = taRightJustify
  173.         AutoSize = False
  174.         Caption = 'Amount Paid'
  175.         Font.Color = clWhite
  176.         Font.Height = -15
  177.         Font.Name = 'Arial'
  178.         Font.Style = [fsBold]
  179.         ParentFont = False
  180.       end
  181.     end
  182.     object Detail: TCBDetailBand
  183.       Left = 49
  184.       Top = 241
  185.       Width = 894
  186.       Height = 56
  187.       Align = alTop
  188.       Color = clWhite
  189.       Frame.Color = clSilver
  190.       Frame.Left = frNone
  191.       Frame.Right = frNone
  192.       Frame.Top = frNone
  193.       Frame.Bottom = frNone
  194.       ForceNewPage = False
  195.       BandType = cbDetail
  196.       DataSource = DataSource1
  197.       DetailMainHeaderBand = DetailMainHeader
  198.       DetailTotalBand = DetailTotal
  199.       object DBText1: TDBText
  200.         Left = 8
  201.         Top = 27
  202.         Width = 65
  203.         Height = 17
  204.         DataField = 'OrderNo'
  205.         DataSource = DataSource1
  206.         Font.Color = clBlack
  207.         Font.Height = -17
  208.         Font.Name = 'Arial'
  209.         Font.Style = [fsBold]
  210.         ParentFont = False
  211.       end
  212.       object EditShipDate: TDBEdit
  213.         Left = 10
  214.         Top = 2
  215.         Width = 127
  216.         Height = 23
  217.         BorderStyle = bsNone
  218.         DataField = 'ShipDate'
  219.         DataSource = DataSource1
  220.         Font.Color = clBlack
  221.         Font.Height = -17
  222.         Font.Name = 'Arial'
  223.         Font.Style = [fsBold]
  224.         MaxLength = 0
  225.         ParentFont = False
  226.         TabOrder = 0
  227.       end
  228.       object EditCustNo: TDBEdit
  229.         Left = 154
  230.         Top = 8
  231.         Width = 143
  232.         Height = 32
  233.         BorderStyle = bsNone
  234.         DataField = 'CustNo'
  235.         DataSource = DataSource1
  236.         Font.Color = clBlue
  237.         Font.Height = -20
  238.         Font.Name = 'Arial'
  239.         Font.Style = [fsBold]
  240.         MaxLength = 0
  241.         ParentFont = False
  242.         TabOrder = 1
  243.       end
  244.       object EditPO: TDBEdit
  245.         Left = 338
  246.         Top = 22
  247.         Width = 126
  248.         Height = 24
  249.         BorderStyle = bsNone
  250.         DataField = 'PO'
  251.         DataSource = DataSource1
  252.         Font.Color = clBlack
  253.         Font.Height = -17
  254.         Font.Name = 'Arial'
  255.         Font.Style = [fsBold]
  256.         MaxLength = 15
  257.         ParentFont = False
  258.         TabOrder = 2
  259.       end
  260.       object EditTerms: TDBEdit
  261.         Left = 466
  262.         Top = 22
  263.         Width = 63
  264.         Height = 24
  265.         BorderStyle = bsNone
  266.         DataField = 'Terms'
  267.         DataSource = DataSource1
  268.         Font.Color = clBlack
  269.         Font.Height = -17
  270.         Font.Name = 'Arial'
  271.         Font.Style = [fsBold]
  272.         MaxLength = 6
  273.         ParentFont = False
  274.         TabOrder = 3
  275.       end
  276.       object EditPaymentMethod: TDBEdit
  277.         Left = 554
  278.         Top = 22
  279.         Width = 70
  280.         Height = 24
  281.         BorderStyle = bsNone
  282.         DataField = 'PaymentMethod'
  283.         DataSource = DataSource1
  284.         Font.Color = clBlack
  285.         Font.Height = -17
  286.         Font.Name = 'Arial'
  287.         Font.Style = [fsBold]
  288.         MaxLength = 7
  289.         ParentFont = False
  290.         TabOrder = 4
  291.       end
  292.       object EditItemsTotal: TDBEdit
  293.         Left = 650
  294.         Top = 22
  295.         Width = 91
  296.         Height = 24
  297.         BorderStyle = bsNone
  298.         DataField = 'ItemsTotal'
  299.         DataSource = DataSource1
  300.         Font.Color = clBlack
  301.         Font.Height = -17
  302.         Font.Name = 'Arial'
  303.         Font.Style = [fsBold]
  304.         MaxLength = 0
  305.         ParentFont = False
  306.         TabOrder = 5
  307.       end
  308.       object EditAmountPaid: TDBEdit
  309.         Left = 794
  310.         Top = 22
  311.         Width = 91
  312.         Height = 24
  313.         BorderStyle = bsNone
  314.         DataField = 'AmountPaid'
  315.         DataSource = DataSource1
  316.         Font.Color = clBlack
  317.         Font.Height = -17
  318.         Font.Name = 'Arial'
  319.         Font.Style = [fsBold]
  320.         MaxLength = 0
  321.         ParentFont = False
  322.         TabOrder = 6
  323.       end
  324.     end
  325.     object DetailTotal: TCBBand
  326.       Left = 49
  327.       Top = 297
  328.       Width = 894
  329.       Height = 32
  330.       Align = alTop
  331.       Color = clWhite
  332.       Frame.Color = clSilver
  333.       Frame.Left = frSingleThin
  334.       Frame.Right = frSingleThin
  335.       Frame.Top = frSingleThin
  336.       Frame.Bottom = frSingleThin
  337.       ForceNewPage = False
  338.       BandType = cbDetailTotal
  339.       object Label30: TLabel
  340.         Left = 456
  341.         Top = 2
  342.         Width = 169
  343.         Height = 25
  344.         Alignment = taCenter
  345.         AutoSize = False
  346.         Caption = 'Order Total '
  347.         Font.Color = clRed
  348.         Font.Height = -23
  349.         Font.Name = 'Times New Roman'
  350.         Font.Style = [fsBold, fsItalic]
  351.         ParentFont = False
  352.       end
  353.       object CBCalc1: TCBCalc
  354.         Left = 611
  355.         Top = 4
  356.         Width = 129
  357.         Height = 23
  358.         DataField = 'ItemsTotal'
  359.         DataSource = DataSource1
  360.         ParentFont = False
  361.         BorderStyle = bsNone
  362.         Color = clWhite
  363.         Font.Color = clRed
  364.         Font.Height = -17
  365.         Font.Name = 'Arial'
  366.         Font.Style = [fsBold]
  367.         DisplayFormat = '$ #,##0.00'
  368.         Text = '$ 0.00'
  369.         Alignment = taRightJustify
  370.         Operation = cbSum
  371.       end
  372.       object CBCalc2: TCBCalc
  373.         Left = 779
  374.         Top = 4
  375.         Width = 106
  376.         Height = 25
  377.         DataField = 'AmountPaid'
  378.         DataSource = DataSource1
  379.         ParentFont = False
  380.         BorderStyle = bsNone
  381.         Color = clWhite
  382.         Font.Color = clRed
  383.         Font.Height = -17
  384.         Font.Name = 'Arial'
  385.         Font.Style = [fsBold]
  386.         DisplayFormat = '$ #,##0.00'
  387.         Text = '$ 0.00'
  388.         Alignment = taRightJustify
  389.         Operation = cbSum
  390.       end
  391.     end
  392.     object Title: TCBBand
  393.       Left = 49
  394.       Top = 49
  395.       Width = 894
  396.       Height = 144
  397.       Align = alTop
  398.       Color = clWhite
  399.       Frame.Color = clSilver
  400.       Frame.Left = frSingleThin
  401.       Frame.Right = frSingleThin
  402.       Frame.Top = frSingleThin
  403.       Frame.Bottom = frSingleThin
  404.       ForceNewPage = False
  405.       BandType = cbTitle
  406.       object Label5: TLabel
  407.         Left = 295
  408.         Top = 72
  409.         Width = 305
  410.         Height = 46
  411.         Alignment = taCenter
  412.         AutoSize = False
  413.         Caption = 'from Calitz Bros.'
  414.         Font.Color = clMaroon
  415.         Font.Height = -40
  416.         Font.Name = 'Times New Roman'
  417.         Font.Style = [fsBold, fsItalic]
  418.         ParentFont = False
  419.       end
  420.       object Image1: TImage
  421.         Left = 8
  422.         Top = 19
  423.         Width = 49
  424.         Height = 33
  425.         Picture.Data = {<image000.bmp>}
  426.       end
  427.       object Label27: TLabel
  428.         Left = 219
  429.         Top = 24
  430.         Width = 457
  431.         Height = 46
  432.         Alignment = taCenter
  433.         AutoSize = False
  434.         Caption = 'Demo printed with BandIt'
  435.         Font.Color = clMaroon
  436.         Font.Height = -40
  437.         Font.Name = 'Times New Roman'
  438.         Font.Style = [fsBold, fsItalic]
  439.         ParentFont = False
  440.       end
  441.       object CBSystem2: TCBSystem
  442.         Left = 48
  443.         Top = 107
  444.         Width = 193
  445.         Height = 28
  446.         ParentFont = False
  447.         BorderStyle = bsNone
  448.         Font.Color = clWindowText
  449.         Font.Height = -17
  450.         Font.Name = 'Arial'
  451.         Font.Style = []
  452.         Color = clWhite
  453.         Data = cbDateTime
  454.         DisplayFormat = '#,##0.00'
  455.         Text = '0.00'
  456.         Alignment = taLeftJustify
  457.       end
  458.     end
  459.     object DetailMainHeader: TCBBand
  460.       Left = 49
  461.       Top = 193
  462.       Width = 894
  463.       Height = 48
  464.       Align = alTop
  465.       Color = clBlue
  466.       Frame.Color = clSilver
  467.       Frame.Left = frSingleThin
  468.       Frame.Right = frSingleThin
  469.       Frame.Top = frSingleThin
  470.       Frame.Bottom = frSingleThin
  471.       ForceNewPage = False
  472.       BandType = cbDetailMainHeader
  473.       object Label14: TLabel
  474.         Left = 16
  475.         Top = 2
  476.         Width = 105
  477.         Height = 19
  478.         Caption = 'Ship Date'
  479.         Font.Color = clWhite
  480.         Font.Height = -17
  481.         Font.Name = 'Arial'
  482.         Font.Style = [fsBold]
  483.         ParentFont = False
  484.       end
  485.       object Label19: TLabel
  486.         Left = 16
  487.         Top = 24
  488.         Width = 81
  489.         Height = 19
  490.         Caption = 'Order #'
  491.         Font.Color = clWhite
  492.         Font.Height = -17
  493.         Font.Name = 'Arial'
  494.         Font.Style = [fsBold]
  495.         ParentFont = False
  496.       end
  497.       object Label20: TLabel
  498.         Left = 154
  499.         Top = 21
  500.         Width = 164
  501.         Height = 19
  502.         Caption = 'Customer Number    '
  503.         Font.Color = clWhite
  504.         Font.Height = -17
  505.         Font.Name = 'Arial'
  506.         Font.Style = [fsBold]
  507.         ParentFont = False
  508.       end
  509.       object Label22: TLabel
  510.         Left = 466
  511.         Top = 21
  512.         Width = 59
  513.         Height = 19
  514.         Caption = 'Terms  '
  515.         Font.Color = clWhite
  516.         Font.Height = -17
  517.         Font.Name = 'Arial'
  518.         Font.Style = [fsBold]
  519.         ParentFont = False
  520.       end
  521.       object Label23: TLabel
  522.         Left = 322
  523.         Top = 21
  524.         Width = 125
  525.         Height = 19
  526.         Caption = 'Purchase Order'
  527.         Font.Color = clWhite
  528.         Font.Height = -17
  529.         Font.Name = 'Arial'
  530.         Font.Style = [fsBold]
  531.         ParentFont = False
  532.       end
  533.       object Label24: TLabel
  534.         Left = 554
  535.         Top = 21
  536.         Width = 58
  537.         Height = 19
  538.         Caption = 'Method'
  539.         Font.Color = clWhite
  540.         Font.Height = -17
  541.         Font.Name = 'Arial'
  542.         Font.Style = [fsBold]
  543.         ParentFont = False
  544.       end
  545.       object Label25: TLabel
  546.         Left = 658
  547.         Top = 21
  548.         Width = 95
  549.         Height = 19
  550.         Alignment = taRightJustify
  551.         AutoSize = False
  552.         Caption = 'Items Total'
  553.         Font.Color = clWhite
  554.         Font.Height = -17
  555.         Font.Name = 'Arial'
  556.         Font.Style = [fsBold]
  557.         ParentFont = False
  558.       end
  559.       object Label26: TLabel
  560.         Left = 776
  561.         Top = 21
  562.         Width = 105
  563.         Height = 19
  564.         Alignment = taRightJustify
  565.         AutoSize = False
  566.         Caption = 'Amount Paid'
  567.         Font.Color = clWhite
  568.         Font.Height = -17
  569.         Font.Name = 'Arial'
  570.         Font.Style = [fsBold]
  571.         ParentFont = False
  572.       end
  573.       object Label31: TLabel
  574.         Left = 554
  575.         Top = 5
  576.         Width = 73
  577.         Height = 19
  578.         Caption = 'Payment '
  579.         Font.Color = clWhite
  580.         Font.Height = -17
  581.         Font.Name = 'Arial'
  582.         Font.Style = [fsBold]
  583.         ParentFont = False
  584.       end
  585.     end
  586.     object PageFooter: TCBBand
  587.       Left = 49
  588.       Top = 329
  589.       Width = 894
  590.       Height = 59
  591.       Align = alTop
  592.       Color = clWhite
  593.       Frame.Color = clSilver
  594.       Frame.Left = frSingleThin
  595.       Frame.Right = frSingleThin
  596.       Frame.Top = frSingleThin
  597.       Frame.Bottom = frSingleThin
  598.       ForceNewPage = False
  599.       BandType = cbPageFooter
  600.       object Image2: TImage
  601.         Left = 8
  602.         Top = 12
  603.         Width = 49
  604.         Height = 33
  605.         Picture.Data = {<image001.bmp>}
  606.       end
  607.       object Label29: TLabel
  608.         Left = 219
  609.         Top = 3
  610.         Width = 457
  611.         Height = 49
  612.         Alignment = taCenter
  613.         AutoSize = False
  614.         Caption = 'Page Footer'
  615.         Font.Color = clMaroon
  616.         Font.Height = -40
  617.         Font.Name = 'Times New Roman'
  618.         Font.Style = [fsBold, fsItalic]
  619.         ParentFont = False
  620.       end
  621.       object Label28: TLabel
  622.         Left = 755
  623.         Top = 13
  624.         Width = 59
  625.         Height = 26
  626.         Caption = 'Page '
  627.         Font.Color = clBlack
  628.         Font.Height = -23
  629.         Font.Name = 'Arial'
  630.         Font.Style = []
  631.         ParentFont = False
  632.       end
  633.       object CBSystem1: TCBSystem
  634.         Left = 824
  635.         Top = 12
  636.         Width = 60
  637.         Height = 31
  638.         ParentFont = False
  639.         BorderStyle = bsNone
  640.         Font.Color = clBlack
  641.         Font.Height = -23
  642.         Font.Name = 'Arial'
  643.         Font.Style = []
  644.         Color = clWhite
  645.         Data = cbPageNumber
  646.         DisplayFormat = '0'
  647.         Text = '1'
  648.         Alignment = taRightJustify
  649.       end
  650.     end
  651.   end
  652.   object DataSource1: TDataSource
  653.     DataSet = Table1
  654.     Left = 287
  655.     Top = 5
  656.   end
  657.   object Table1: TTable
  658.     Active = True
  659.     DatabaseName = 'DBDEMOS'
  660.     TableName = 'ORDERS.DB'
  661.     Left = 259
  662.     Top = 5
  663.     object Table1OrderNo: TFloatField
  664.       FieldName = 'OrderNo'
  665.       DisplayFormat = #39'#'#39'0000'
  666.     end
  667.     object Table1CustNo: TFloatField
  668.       Alignment = taLeftJustify
  669.       FieldName = 'CustNo'
  670.       DisplayFormat = 'CN 0000'
  671.       MaxValue = 9999.000000000000000000
  672.       MinValue = 1000.000000000000000000
  673.     end
  674.     object Table1SaleDate: TDateTimeField
  675.       FieldName = 'SaleDate'
  676.     end
  677.     object Table1ShipDate: TDateTimeField
  678.       FieldName = 'ShipDate'
  679.     end
  680.     object Table1EmpNo: TIntegerField
  681.       FieldName = 'EmpNo'
  682.       DisplayFormat = 'Emp'#39'#'#39' 0000'
  683.       MaxValue = 9999
  684.       MinValue = 1
  685.     end
  686.     object Table1ShipToContact: TStringField
  687.       FieldName = 'ShipToContact'
  688.     end
  689.     object Table1ShipToAddr1: TStringField
  690.       FieldName = 'ShipToAddr1'
  691.       Size = 30
  692.     end
  693.     object Table1ShipToAddr2: TStringField
  694.       FieldName = 'ShipToAddr2'
  695.       Size = 30
  696.     end
  697.     object Table1ShipToCity: TStringField
  698.       FieldName = 'ShipToCity'
  699.       Size = 15
  700.     end
  701.     object Table1ShipToState: TStringField
  702.       FieldName = 'ShipToState'
  703.     end
  704.     object Table1ShipToZip: TStringField
  705.       FieldName = 'ShipToZip'
  706.       Size = 10
  707.     end
  708.     object Table1ShipToCountry: TStringField
  709.       FieldName = 'ShipToCountry'
  710.     end
  711.     object Table1ShipToPhone: TStringField
  712.       FieldName = 'ShipToPhone'
  713.       Size = 15
  714.     end
  715.     object Table1ShipVIA: TStringField
  716.       FieldName = 'ShipVIA'
  717.       Size = 7
  718.     end
  719.     object Table1PO: TStringField
  720.       FieldName = 'PO'
  721.       Size = 15
  722.     end
  723.     object Table1Terms: TStringField
  724.       FieldName = 'Terms'
  725.       Size = 6
  726.     end
  727.     object Table1PaymentMethod: TStringField
  728.       FieldName = 'PaymentMethod'
  729.       Size = 7
  730.     end
  731.     object Table1ItemsTotal: TCurrencyField
  732.       FieldName = 'ItemsTotal'
  733.     end
  734.     object Table1TaxRate: TFloatField
  735.       FieldName = 'TaxRate'
  736.       DisplayFormat = '0.00%'
  737.     end
  738.     object Table1Freight: TCurrencyField
  739.       FieldName = 'Freight'
  740.     end
  741.     object Table1AmountPaid: TCurrencyField
  742.       FieldName = 'AmountPaid'
  743.     end
  744.   end
  745. end
  746.